﻿Imports System.Windows.Forms
Imports System.Drawing

Namespace Forms.Events
    ''' <summary>
    ''' 绘制标题栏事件数据
    ''' </summary>
    Public Class CaptionRenderEventArgs
        Inherits PaintEventArgs

        Private m_Form As FormBase = Nothing
        Private m_Active As Boolean = False

        Public ReadOnly Property Form() As FormBase
            Get
                Return Me.m_Form
            End Get
        End Property

        Public ReadOnly Property Active() As Boolean
            Get
                Return Me.m_Active
            End Get
        End Property

        Public Sub New(ByVal frm As FormBase, ByVal active As Boolean, ByVal g As Graphics, ByVal clipRect As Rectangle)
            MyBase.New(g, clipRect)
            Me.m_Form = frm
            Me.m_Active = active
        End Sub

    End Class
End Namespace

